home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
os20
/
wb
/
pat2icon.lha
/
pat2icon
/
window.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-10-03
|
3KB
|
107 lines
/*
* Source generated with GadToolsBox V1.4
* which is (c) Copyright 1991,92 Jaba Development
*/
#include <exec/types.h>
#include <intuition/intuition.h>
#include <intuition/classes.h>
#include <intuition/classusr.h>
#include <intuition/imageclass.h>
#include <intuition/gadgetclass.h>
#include <libraries/gadtools.h>
#include <graphics/displayinfo.h>
#include <graphics/gfxbase.h>
#include <proto/exec.h>
#include <proto/intuition.h>
#include <proto/gadtools.h>
#include <proto/graphics.h>
#include <proto/utility.h>
#include <string.h>
#include "window.h"
struct Screen *Scr = NULL;
APTR VisualInfo = NULL;
struct Window *AppWnd = NULL;
UWORD AppLeft = 223;
UWORD AppTop = 49;
UWORD AppWidth = 176;
UWORD AppHeight = 27;
UBYTE *AppWdt = (UBYTE *)"pat2icon v1.0";
struct TextAttr topaz8 = {
( STRPTR )"topaz.font", 8, 0x00, 0x01 };
struct IntuiText AppIText[] = {
2, 0, JAM1,21, 7, &topaz8, (UBYTE *)"Drop icons here!", NULL };
int SetupScreen( void )
{
if ( ! ( Scr = LockPubScreen( NULL )))
return( 1L );
if ( ! ( VisualInfo = GetVisualInfo( Scr, TAG_DONE )))
return( 2L );
return( 0L );
}
void CloseDownScreen( void )
{
if ( VisualInfo ) {
FreeVisualInfo( VisualInfo );
VisualInfo = NULL;
}
if ( Scr ) {
UnlockPubScreen( NULL, Scr );
Scr = NULL;
}
}
void AppRender( void )
{
UWORD offx, offy;
offx = AppWnd->BorderLeft;
offy = AppWnd->BorderTop;
PrintIText( AppWnd->RPort, AppIText, offx, offy );
}
int OpenAppWindow( void )
{
struct NewGadget ng;
struct Gadget *g;
UWORD lc, tc;
UWORD offx = Scr->WBorLeft,offy = Scr->WBorTop + Scr->RastPort.TxHeight + 1;
if ( ! ( AppWnd = OpenWindowTags( NULL,
WA_Left, AppLeft,
WA_Top, AppTop,
WA_Width, AppWidth,
WA_Height, AppHeight + offy,
WA_IDCMP, IDCMP_CLOSEWINDOW|IDCMP_REFRESHWINDOW,
WA_Flags, WFLG_DRAGBAR|WFLG_DEPTHGADGET|WFLG_CLOSEGADGET|WFLG_SMART_REFRESH,
WA_Title, AppWdt,
WA_PubScreen, Scr,
TAG_DONE )))
return( 4L );
GT_RefreshWindow( AppWnd, NULL );
AppRender();
return( 0L );
}
void CloseAppWindow( void )
{
if ( AppWnd ) {
CloseWindow( AppWnd );
AppWnd = NULL;
}
}